EXPERIMENT WXXH SOUND 

(CAMPER COPY) 



!♦ Experiment with the SOUND command* Try the 
following: 

SOUND 0,50,10,6 

Change the pitch number (50) to see its effect* Then change 
the distortion (10) and volume (6) numbers to determine what 
their purpose is* Use* 

SOUND 0,0,0,0 

to turn off the sound* 



2* Now try this* 

SOUND 0,100,10,5 
SOUND 1,150,10,5 
SOUND 2,200,10,5 
SOUND 3,250,10,5 



There are four sound registers, numbered 0-3, that may be 
used to make sounds* It may be compared to using four part 
harmony when singing songs* Each of the registers would be a 
voice* This is what the four numbers represent* 

Register Pitch Distortion Volume 
^SOU^^ 




The values that can be used in each position arei 

Register 0-3 

Pitch 0 - 255 

Distortion 0 ~ 1*1 (Even numbers) 

Volume 0-15 
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10 REM * ANIMATED ARROW * 
20 GRAPHICS 7+16 
30 Y=40 

40 FOR HUE=0 TO 15 

50 FOR X=15 TO 105 STEP 5 

60 SETCOLOR 0 ,HUE,2*X/15 

70 REM * DRAW ARROW * 

80 COLOR 1 

90 GOSUB 1080 0 

100 REM * ERASE ARROW * 

110 COLOR 0 

120 GOSUB 10800 

130 NEXT X 

140 NEXT HUE 

150 END 

1080 0 REM ******M3kes Arrow********* 

10810 PLOT X,Y 

10815 DRAWTO X-15,Y 

10820 DRAWTO X-15,Y+2 

10830 DRAWTO X,Y+2 

10840 PLOT X+2,Y+1 

10850 DRAWTO X-6,Y-3 

10860 PLOT X+2,Y+1 

10870 DRAWTO X-6,Y+5 

10880 RETURN 
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ACTIVITIES 
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10 
20 
30 
40 



FOR PITCH=0 TO 255 
SOUND 0 , PITCH ,1 0,10 
NEXT PITCH 
END 



Add! 



40 
50 
60 
70 



FOR PITCH=255 TO 0 STEP -1 
SOUND 0, PITCH, 10 ,10 
NEXT PITCH 
END 



3nd run the progrsw. 



100 FOR COUNT=l TO 3 

200 FOR PITCH=1 TO 255 

300 POKE 710,P:SOUND 0,P,10,5 

400 FOR WAIT=1 TO 5 ♦ NEXT WAIT 

500 NEXT PITCH 

600 NEXT COUNT 



10 SOUND 0,81,10,8 

20 FOR DELAY=1 TO 30 0* NEXT D 

30 SOUND 0,64,10,8 

40 FOR DELAY*1 TO lQQtNEXT D 

50 SOUND 0,53,10,3 

60 FOR DELAY=1 TO 50 0t NEXT D 

70 SOUND 0,64,10,8 
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2090 0 REM xxxxxxxxxxxOceanxxxxxxxxxx* 

20910 FOR L00P=1 TO 2 

20920 FOR PITCH=0 TO 12 

20930 SOUND 0, PITCH, 8, 6 

20940 FOR WAIT=1 TO StNEXT WAIT 

20950 NEXT PITCH 

20960 FOR PITCH=12 TO 0 STEP -1 

20970 SOUND 0, PITCH, 8, 4 

20975 FOR WAIT=1 TO 17: NEXT WAIT 

20980 NEXT PITCH 

20985 NEXT LOOP 

20990 SOUND 0,0,0,0 

20995 RETURN 



list"d:ocean.so" 



20300 REM xxxTelephone Busy Signalxxx 
20305 FOR RINGS=1 TO 9 
20310 SOUND 2,40,6,10 
20320 FOR WAIT=1 TO 50 {NEXT WAIT 
20330 SOUND 2,0,0,0 4 
20340 FOR WAIT=1 TO 25* NEXT WAIT 
20350 NEXT RINGS 
20360 RETURN 



list"d:busy.so" 
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2050 0 REM xxxxxstean LocoMotivexxxxxx 

20510 FOR L00P=1 TO 25 

20520 FOR LOUD=10 TO 0 STEP -1 

20530 SOUND 0, 15,0, LOUD 

20540 NEXT LOUD 

20550 NEXT LOOP 

20560 SOUND 0,0,0,0 

20570 RETURN 



LIST"DJTRAIN,SO" 



20100 REM xxxxxxxChirp ing Birdsxxxxxx 

20110 FOR LOOP=l TO 4 

20120 FOR COUNT=l TO 5 

20130 FOR PITCH=1 TO 15 

20140 SOUND 2, PITCH, 10, 8 

20150 NEXT PITCH 

20160 NEXT COUNT * 
20170 NEXT LOOP 
20180 SOUND 2,0,0,0 
20190 RETURN 



LIST"Dt BIRDS ♦SO" 
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DIRECTIONS 

Type in the following subroutines* As you finish each 
one, store it on your disk using the LIST cowMand end the 
nane given at the end of the listing* Be sure to use the 
line nuMbers specified* so that you can include More than one 
of the subroutines in the sane program* Type NEW before you 
start each sound effect* After storing the sound effect* add 
a GOSUB and listen to the result* 

1* A Siren 

2000 0 REM xxxxx A Siren xxxxx 
20010 FOR C0UNT=1 TO 20 
20020 FOR PITCH=20 TO 50 
20030 SOUND 0,PITCH*10*8 
20040 NEXT PITCH 
20050 NEXT COUNT 
20060 SOUND 0*0*0*0 
20070 RETURN 

LIST"DJSIREN*SO" 

2* Exploding Bomb 

2040 0 REM xxxxx Exploding Bowb xxxxx 

20410 FOR PITCH=30 TO 200 

20420 SOUND 0*PITCH*10*8 

20430 NEXT PITCH 

20440 SOUND 0*80*0*11 

20450 FOR WAIT=1 TO 500. NEXT WAIT 

20460 SOUND 0*0*0*0 

20470 RETURN 

list"d:bomb*so" * 

3* A Bouncing Ball 

20600 REM xxxxx Bouncing Ball xx*xx 

20610 FOR BOUNCES=l TO 8 

20620 FOR C=l TO 8 

20630 SOUND 0,124*14*4 

20640 NEXT C 

20650 SOUND 0*0*0*0 

20660 FOR WAIT=1 TO 40 0 * NEXT WAIT 
20670 NEXT BOUNCES 
20680 RETURN 

LIST"D: BOUNCE. SO" 
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4. A Jackhanner 

20700 REM ***** Jackhawner ***** 

20710 FOR HAMMER=1 TO 300 

20720 FOUND 0,100,6,4 

20730 NEXT HAMMER 

20740 SOUND 0,0,0,0 

20750 FOR WAIT=1 TO 500JNEXT WAIT 

20760 RETURN 

LIST"D ♦ JAKHAMR » SO" 



5, Thunder 

20800 REM ***** Thunder ***** 

20810 FOR LOOP=l TO 4 

20820 FOR PITCH=1 TO 255 

20830 SOUND 0, PITCH, 8, 15 

20840 NEXT PITCH 

20850 SOUND 0,0,0,0 

20860 FOR WAIT=1 TO 3501NEXT WAIT 

20870 NEXT LOOP 

20880 RETURN 

list"d:thunder.so" 

6* Argunent Between Parent and Child Conputers 

21000 REM **** CoMputer Argunent **** 

21010 FOR PARENT=1 TO 100 

21020 SOUND 0,INT(RND<0)*25) ,10,8 

21030 NEXT PARENT 

21040 SOUND 0,0,0,0 « 

21050 FOR WAIT=1 TO SOOtNEXT WAIT 

21060 FOR CHILD=1 TO 100 

21070 SOUND 1,INT(RND<0)*200> ,10,8 

21080 NEXT CHILD 

21085 SOUND 1,0,0,0 

21090 FOR WAIT=1 TO 200 {NEXT WAIT 

21095 RETURN 

list"d:argue,so" 



Copyright Atari, Inc., 1983. All rights reserved. 

T21IA 



'P 



MUSXCAL MOTES 



HIGH 
NOTES 



MIDDLE 



LOW 
NOTES 



F'TTPW 




UAI IIP 
VnLUu 


P 
u 




An 


F: 




A4 

w i 


PI Ul 


F: 


AS 

WW 


pi 






u? or 


A 

ri 


7A 


r 




P.1 


r Li i 




OCT. 
O vl 


r 
r 




91 


F 
c 




9 A 

T O 


u or 


C. 


X 114. 


n 
u 




1 HP 
X u o 


w or 


u 


114 

X J." 


r 




171 

X 4» X 






1 

X 4m O 


ri ul 


Fl 


1 *3A 

X ww 


M 




1 44 

X i i 


U? W 1 


A 
r1 


X ww 






1 A9 


F or 


P 
w 


X / w 


r 




X Oil 


fc. 




I/O 


D or 


E 


20.4 


D 




217 


C or 


D 


230 


C 




243 



Copyright Atari, Inc»» 1983. All rights reserved* 

30C 



